5 GOTO10010
10 DATAC,0,10,20
20 DATAxü,nxüž,10,30
30 DATAx,1,20,40
40 DATA1/x,-1/xý,30,50
50 DATAûï,1/(2ûï),40,60
60 DATAaÂ,aÂloga,50,70
70 DATAeÂ,eÂ,60,80
80 DATAeüÂ,neüÂ,70,90
90 DATAlogx,1/x,80,100
100 DATAxÂ,xÂ(logx+1),90,110
110 DATAsinx,cosx,100,120
120 DATAcosx,-sinx,110,130
130 DATAtanx,secýx,120,140
140 DATAcotx,-cosecýx,130,150
150 DATAsecx,secx¥tanx,140,160
160 DATAcosecx,-cosecx¥cotx,150,170
170 DATAsinax,a¥cosax,160,180
180 DATAcosax,-a¥sinax,170,190
190 DATAtanax,a¥secýax,180,200
200 DATAcotax,-a¥cosecýax,190,210
210 DATAsinžx,1/û(1-xý)          (“y“<ã/2),200,220
220 DATAcosžx,-1/û(1-xý)           (0<y<ã),210,230
230 DATAtanžx,1/(1+xý)           (“y“<ã/2),220,240
240 DATAcotžx,-1/(1+xý)          (“y“<ã/2),230,250
250 DATAsecžx,"1/(xû(xý-1))    (0<y<ã,xý>1)",240,260
260 DATAcosecžx,"1/(xû(xý-1))  (“y“<ã/2,xý>1)",250,270
270 DATAsinhx,coshx,260,280
280 DATAcoshx,sinhx,270,290
290 DATAtanhx,sechýx,280,300
300 DATAcothx,-cosechýx,290,310
310 DATAsechx,-sechx¥tanhx,300,320
320 DATAcosechx,-cosechx¥cothx,310,330
330 DATAsinhžx,1/û(1+xý),320,340
340 DATAcoshžx,"1/û(xý-1)         (y>0,xý>1)",330,350
350 DATAtanhžx,1/(1-xý)              (xý<1),340,360
360 DATAcothžx,1/(1-xý)              (xý>1),350,370
370 DATAsechžx,-1/(xû(1-xý))        (0<x<1),360,380
380 DATAcosechžx,-1/(xû(xý+1)),370,380
10010 MODE8:DIM:x=10:y=380:r=x
10020 DEFCHR$(255)="A2A49C92A2"
10030 DEFCHR$(254)="0000FE0000"
10110 RESTORE(r)
10120 READm$,n$,b,c
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 CLS:PRINT"y =";m$;TAB(l);l$;"y";CHR$(131);"=";n$;
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>x THENr=x:GOTO10110
10180 IFz=28 ANDr<>y THENr=y:GOTO10110
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
10280 GOTO10150